﻿Public Class IDgenerator
    Public Shared ReadOnly Property ID As Integer
        Get
            My.Settings.LastID += 1
            My.Settings.Save()
            Return My.Settings.LastID
        End Get
    End Property
End Class
